home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mtc / mtcframe.frm < prev    next >
Text File  |  1995-05-02  |  5KB  |  147 lines
  1. VERSION 2.00
  2. Begin Form FrameForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   900
  6.    ClientLeft      =   -15
  7.    ClientTop       =   2640
  8.    ClientWidth     =   2970
  9.    ControlBox      =   0   'False
  10.    Height          =   1305
  11.    Left            =   -75
  12.    LinkTopic       =   "Form3"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   900
  16.    ScaleWidth      =   2970
  17.    Top             =   2295
  18.    Width           =   3090
  19.    Begin SSPanel Z 
  20.       Alignment       =   6  'Center - TOP
  21.       BackColor       =   &H00C0C0C0&
  22.       BevelInner      =   1  'Inset
  23.       BevelOuter      =   0  'None
  24.       BevelWidth      =   2
  25.       BorderWidth     =   0
  26.       Font3D          =   3  'Inset w/light shading
  27.       ForeColor       =   &H00FF0000&
  28.       Height          =   675
  29.       Left            =   120
  30.       TabIndex        =   0
  31.       Top             =   120
  32.       Width           =   2745
  33.       Begin SSCommand cmdFrameMode 
  34.          BevelWidth      =   3
  35.          Caption         =   "30df"
  36.          Font3D          =   3  'Inset w/light shading
  37.          FontBold        =   -1  'True
  38.          FontItalic      =   0   'False
  39.          FontName        =   "Arial"
  40.          FontSize        =   13.5
  41.          FontStrikethru  =   0   'False
  42.          FontUnderline   =   0   'False
  43.          ForeColor       =   &H00004080&
  44.          Height          =   495
  45.          Index           =   2
  46.          Left            =   1290
  47.          TabIndex        =   4
  48.          Top             =   90
  49.          Width           =   735
  50.       End
  51.       Begin SSCommand cmdFrameMode 
  52.          BevelWidth      =   3
  53.          Caption         =   "30"
  54.          Font3D          =   3  'Inset w/light shading
  55.          FontBold        =   -1  'True
  56.          FontItalic      =   0   'False
  57.          FontName        =   "Arial"
  58.          FontSize        =   13.5
  59.          FontStrikethru  =   0   'False
  60.          FontUnderline   =   0   'False
  61.          ForeColor       =   &H00004080&
  62.          Height          =   495
  63.          Index           =   3
  64.          Left            =   2100
  65.          TabIndex        =   3
  66.          Top             =   90
  67.          Width           =   525
  68.       End
  69.       Begin SSCommand cmdFrameMode 
  70.          BevelWidth      =   3
  71.          Caption         =   "25"
  72.          Font3D          =   3  'Inset w/light shading
  73.          FontBold        =   -1  'True
  74.          FontItalic      =   0   'False
  75.          FontName        =   "Arial"
  76.          FontSize        =   13.5
  77.          FontStrikethru  =   0   'False
  78.          FontUnderline   =   0   'False
  79.          ForeColor       =   &H00004080&
  80.          Height          =   495
  81.          Index           =   1
  82.          Left            =   690
  83.          TabIndex        =   2
  84.          Top             =   90
  85.          Width           =   525
  86.       End
  87.       Begin SSCommand cmdFrameMode 
  88.          BevelWidth      =   3
  89.          Caption         =   "24"
  90.          Font3D          =   3  'Inset w/light shading
  91.          FontBold        =   -1  'True
  92.          FontItalic      =   0   'False
  93.          FontName        =   "Arial"
  94.          FontSize        =   13.5
  95.          FontStrikethru  =   0   'False
  96.          FontUnderline   =   0   'False
  97.          ForeColor       =   &H00004080&
  98.          Height          =   495
  99.          Index           =   0
  100.          Left            =   90
  101.          TabIndex        =   1
  102.          Top             =   90
  103.          Width           =   525
  104.       End
  105.    End
  106. End
  107. Option Explicit
  108.  
  109. Sub cmdFrameMode_Click (Index As Integer)
  110.     TC_tYPE = Index
  111.     Select Case Index
  112.         Case 0:
  113.             Ms_per_QF = 250 / 24
  114.             Frame_Mode = 24
  115.             MTCForm.Caption = "SMPTE : 24 Fr/s"
  116.         Case 1:
  117.             Ms_per_QF = 250 / 25
  118.             Frame_Mode = 25
  119.             MTCForm.Caption = "SMPTE : 25 Fr/s"
  120.         Case 2:
  121.             Ms_per_QF = 250 / 29
  122.             Frame_Mode = 29
  123.             MTCForm.Caption = "SMPTE : 30 (Drop-Frame)"
  124.         Case 3:
  125.             Ms_per_QF = 250 / 30
  126.             Frame_Mode = 30
  127.             MTCForm.Caption = "SMPTE : 30 (Non-Drop)"
  128.     End Select
  129.     Hide
  130. End Sub
  131.  
  132. Sub Form_Activate ()
  133.     Dim i As Integer
  134.  
  135.     For i = 0 To 3
  136.         cmdFrameMode(i).ForeColor = BURDEOS
  137.     Next i
  138.     
  139.     cmdFrameMode(TC_tYPE).ForeColor = DARKBLUE
  140.     cmdFrameMode(TC_tYPE).SetFocus
  141. End Sub
  142.  
  143. Sub Form_Load ()
  144.      Move (Screen.Width - Width) / 2, MTCForm.Top - Height
  145. End Sub
  146.  
  147.